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| d 3 
| BASSFETCH_DESC 16-Sep-1984 00:27:54 AX-11 Bliss-32 V4.0-74 Page 1 
ats 7 00:87 88 EBASRTL SRe BaSre tin BS2:1 7D 
ls 1 0001 MODULE BASSFETCH_DESC ( ' Fetch descriptor from arr 
3 é 009¢ 6 TD ENT = *1-002" i File: BASFETEHD. B32 Edit: “BLL 10002 
} Bey 0004 1 BEGIN 
ls 5 9005 1! 
\% $ 0007 : prereea pygmy pray mien ne ete serene 
lI; 68 008 1 '* COPYRIGHT (c) 1978, 1980, 1982, 1984 . 
; 9 0009 1 '* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. . 
: 10 9010 is ALL RIGHTS RESERVED. ’ 
Py ° ® 
; \3 Org 1 ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED : 
any 015 1 i ONLY IN ACCORDANCE WITH THE TERMS SUCH LICENSE AND WITH THE ®* 
; 0014 1 i INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
2 0015 1 i* COPIES THEREOF MAY NOT B VIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
: #16 0016 1 i* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: v7 0017 ie TRANSFERRED. e 
° .* “ 
; 3 0019 1 i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ®* 
; 620 0020 1 '* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
; ei 0021 ie CORPORATION. * 
3 ‘t 2 
: $8 $038 1 i= DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
3 (6 00g% 1 i SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
om | 0025 1 is e 
s @& 0026 1 !« * 
: a7? 0027 1 leeekeeee rere eee ee eee eee REAR H EAHA ATAAE ATA ETA KAAAARAeKeKeAeeteeeteeet 
; 28 0028 1! 
; 9 0029 1 
: : b034 i iF FACILITY: BASIC L S t 
° anguage suppor 
; $3 0032 1 i nase ea 
co) oe 0033 1 | ABSTRACT: 
>. 0034 1: 
; 3 0035 1: Fetch an element from an array of descriptors. Return the 
3 38 po36 : ; address of the descriptor. 
; 38 0038 | ENVIRONMENT: VAX=11 User Mode 
: 40 0040 AUTHOR: Pamela L. Levesque, CREATION DATE: 2-Mar-1982 
; 4¢ 0048 1 | MODIFIED BY: 
;. 46 043 1: 
: «646 0044 1 | 1-001 - Original. PLL 2-Mar-1982 
: 65 0045 1 | 1-002 - Offset for 1st index is 1, not 2. PLL 19-Mar-1982 
: & 0046 1 i-- 
SOF 0047 1 
; 48 0048 1 !<BLF/PAGE> 
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BASRTL.SRCJBASFET 
; SWITCHES: 
SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 


LINKAGES: 
NONE 


TABLE OF CONTENTS: 


FORWARD ROUTINE 
BASSFETCH_DESC; ! Fetch descriptor from array 


INCLUDE FILES: 


REQUIRE "RTLIN:RTLPSECT'; ! Macros for defining psects 
LIBRARY ‘RTLSTARLE'; ! System symbols 


| MACROS: 

NONE 

EQUATED SYMBOLS: 

NONE 

} PSECTS: 

DECLARE _PSECTS (BAS); ! Declare psects for BASS facility 
OWN STORAGE: 

NONE 

: EXTERNAL REFERENCES: 

E 


XTERNAL ROUTINE 
BASSSSTOP : NOVALUE; ! Signal fatal error 


EXTERNAL LITERAL 
BAS 


$K_ARGDONMAT : UNSIGNED (8), 
BASSK-NOTIMP : UNSIGNED (8) 
BAS$K~SUBOUTRAN : UNSIGNED (8), 
BASSK-TOOFEWARG : UNSIGNED (8), 
BASSK-TOOMANARG : UNSIGNED (8); 


3 
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0 743 
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F 3 
| PSRSENCH.DESC 13-808= 138s § 
3 107 199 1 GLOBAL ROUTINE BASSFETCH_DESC ( ' fet 
. % 1 DESCRIP, i The 
; 199 1 i ae INDEX i Fir 
: 9911 : 1 , 
; 1g 04 1 !44 
E 1 09 | : FUNCTIONAL DESCRIPTION: 
: 115 oF 1 Given a descriptor for the array and the indices, calculate 
; 118 3 1! the address of an element. This element will be a descriptor. 
ee 09 1! Take inte account that this may be a FORTRAN array. 
; 118 \9 : does not handle virtual arrays. 
; 9 0 ig ; FORMAL PARAMETERS: 
% ¢ 0 461: DESCRIP.rx.da The descriptor of the array 
3 + ee 2 INDEX1.rl.v The first index into the arra 
: : ¢ 8 16 : } may follow this one in the ca 
.¢ 6 0218 1 | IMPLICIT INPUTS: 
= ¥ 0219 1! 
; 128 0220 1! NONE 
3 129 0221 1! 
Ss 0 Q 1! IMPLICIT OUTPUTS: 
: 131 0 1! 
3 132 0224 1! NONE 
.; 33 OSS? 1! 
> 134 0226 1 ! ROUTINE VALUE: 
; 135 027 1 | ; 
: 136 03 : : The address of the descriptor is returned 
: 138 0 $3 1 | COMPLETION CODES: 
3: 139 9 31 1: 
: 140 3¢ 1! NONE 
3: 161 0233 1! 
3 142 0234 1 ! SIDE EFFECTS: 
3 14 0235 1! ; 
3 (144 St] 1! Signals if an error is encountered. 
: 0538 | | 
; 149 $535 - 
4a oy oo 
: 150 4 TIN 
: 151 ogee ACTUALCOUNT 
: 13¢ 0244 AC TUALPARAME TER; 
: 12 oete LOCAL 
> 155 6 <3 INDEX_VALUE 
; 136 0248 VALUE ~LOCATION 
: 15 0249 MULTIPLIERS : REF VECTOR, 
: 158 0250 BOUNDS : REF VECTOR, 
: 159 51 LOW_INDEX, 
; 160 $26 HIGR_INDEX, 
3; «161 5 INDER_INCR 
: 169 334 INDE X~NUMBER; 
; 16 0255 


: 
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MAP 
DESCRIP : REF BLOCK (8, BYTE); 


i Be sure the number of array subscripts matches the number of 


! 
; indicies given to us. 


VFWN—OOOnNO 


AOA 


ee () = 1) NEQU .DESCRIP COSCSB_DIMCTI) 
BEGIN 
if (CACTUALCOUNT () = 1) LSSU .DESCRIP COSC$B_DIMCT]) 
BASSSSTOP (BASS$K_TOOFEWARG) 
“9 BASSSSTOP (BASSK_TOOMANARG) ; 
END; 


MULTIPLIERS = DESCRIP CDSCSL_M1 


PMOPITORITUPOPORINoPoPononononononononoforornononorornonn 


COO9 00 08 NINN NNN NNO OO 
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J; 
BOUNDS = DESCRIP CDSCS$L_M1] * (ZUPVAL*.DESCRIP CDSC$B_DIMCT)); 


TAR AVL OOS NEAL ALO OSOARAR OSORNO R UNIO SUR ™ 
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4 
'¢ 
} The coefficients and bounds must be present. 
IF ( NOT (.DESCRIP COSCSV_FL_COEFF] AND .DESCRIP CDSC$V_FL_BOUNDS])) THEN BASSS$STOP (BAS$K_ARGDONMAT); 
+ 
te 
: 


! 

284 ! 
285 ! Compute the lower and upper index numbers based on how the array 
286 ! is stored. 
287 
288 
289 If (. DESCRIP CDSCSV_FL_COLUMN)) 
290 THEN 
291 BEGIN 
$36 LOW INDEX = .DESCRIP COSCS$B_DIMCT); 
$3 HIGA_INDEX = 1; 
94 INDER_INCR = -1; 
295 END 
296 ELSE 
297 BEGIN 
298 LOW J = 1; 

07 944 HIGA_INDEX = DESCRIP COSC$B_DIMCT); 

08 Ou INDER_INCR = 1; 

4 30) END; 

" 308 ,, INDEX_NUMBER = .LOW_INDEX = . INDEX_INCR; 

318 305 : Compute the Linear index from the indices provided. 

HF 309 VALUE_LOCATION = 0; 

1H 4 TE een aren = .INDEX_NUMBER ¢ .INDEX_INCR) NEQ (.HIGH_INDEX + .INDEX_INCR)) DO 

319 311 INDEX_VALUE = ACTUALPARAMETER (.INDEX_NUMBER + 1); 


i —EE 
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ls 1 13 5 IF ((, INDEX_VALUE LSS .BOUNDS [(.INDEX_NUMBER - 1923) ' 
3 g 16 4 or (. INBEX_VALUE GTR .BOUNDS (((.IRDEX_NUMBER - 1)#2) + 13)) 
E 4 1 BASSSSTOP (BASSK_SUBOUTRAN) ; 
: g 18 VALUE LOCATION = (.VALUE_LOCATION® MULTIPLIERS C.INDEX_NUMBER = 1]) * .INDEX_VALUE; 
: 228 5 0 . 
i 229 0 1 VALUE_LOCATION = (.VALUE_LOCATION®.DESCRIP COSCS$W_LENGTH]) * .DESCRIP CDSC$A_A0]; 
5 1 5 RETURN .VALUE_LOCATION; 
; § 5 END; ! end of BASSFETCH_DESC 
TITLE BASSFETCH_DESC 
“IDENT \1=002\ 
.EXTRN BASSSSTOP, BASSK_ARGDONMAT 
-EXTRN BASS$K_NOTIMP, BASSK_SUBOUTRAN 
“EXTRN BASSK~TOOFEWARG 
“EXTRN BASS$K~TOOMANARG 
-PSECT _BASSCODE,NOWRT, SHR, PIC,2 
07FC 00000 ENTRY BASSFETCH DESC, Save R2,R3,R4,R5,R6,R7,RB.- ; 0199 
5A 000000006 00 9€ 00002 MOVAB BASS$STOP, R10 : 
50 6C 9A 00009 MOVZBL (AP), RO > 0264 
50 07 -0000C DECL : 
55 04 AC 00 00005 MOVL DESCRIP, RS F 
32 0B AS 9A 0001 MOVZBL 11(R5), R2 : 
5 50 01 00016 CMPL » R2 : 
17 13 0001 BEQL : 
50 6¢ 9A 00018 MOVZBL (AP), RO : 0268 
50 07 OO01E DECL =R : 
52 50 D1 000 CMPL =e RO, - R2 ; 
06 1E 000 i BGEQU 1 ; 
7E 006 f 9A 99 H MOV ZBL #BASSK_TOOFEWARG, -(SP) ; 0270 
7€ 006 8F 9A 0002B 1$: MOVZBL #BASSK_TOOMANARG, -(SP) : 0272 
6A 1 FB $8 f ¢: CALLS #1, BASSS$STOP 3 
05 OA AS 2 0 ¢ $: ¢ #6. 10(R5), 4$ + 0280 
OA A 3 99 TSTB =—s_: 10 (RS) : 
1 A LSS F 
7E 006 8F OA 005 4$: MOVZBL #BASSK_ARGDONMAT, -(SP) F 
A 1 FB CALLS #1, BASS$STOP ; 
4 16 AS 9E 004 5$: MOVAB : ins) MULTIPLIERS : 028 
6 14 AS4 DE 0 MOVAL (R dtRe . BOUND : 028 
0B OA AS 9 E : BBC #5, 10(R5). 6$ : 9 8 
51 09 MOVL 2, LOW INDEX : 029 
30 01 »D 4 MOVL #1, HIGA_INDEX : 029 
5 01 ce 7 MNEGL #1, INDER_INCR + 0294 
9 A BRB 7$ 3 8 89 
1 1 0 C 68: MOVL #1, LOW_INDEX > 0298 
9 2 DO 0005F MOVL Re, HIGA_INDEX : 0299 
01 0 00062 MOVL ; INDER_INCR : 0300 
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; Routine Size: 176 bytes, 

: 234 03 $ 1 

; 235 03 1 END 

s $39 0328 1 

$s est 0329 0 ELUDOM 


Name 
_BASSCODE 


Se Ge Ge Ge Se 


File 
_5255$DUA28: CSYSLIBISTARLET 


besep-1984 


14-Sep-19 
51 , es 65 7$: 
1 6 
C1 68 
2 , co oof 8$: 
Hie 
; ” aces 4 
FB AGG 53 D1 ss 
19 0 
FC A640 53 » 38 : 
ze 006 «BF Dk BOUKE 9: 
$ FC A642 Fe 0095 10$ 
50 58 C1 goose 
C 11 0009F 
50 3 3C OOOAl 11$ 
50 C4 OOOAG 
50 10 43 C1 OQO0A7 
50 5 DO OOOAC 
04 OOOAF 


Routine Base: _BASSCODE + 0000 


Be 99:80:58 
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INDEX_ INCR LOW_INDEX, INDEX_NUMBER 
CATION ~ 


VALUE “L 

INDEXTINCR, HIGH_INDEX, R9 

INDEX INCR INDER_NUMBER 

NDEX NUMBER, R 

4 (AP) CINDEX NUMBER], INDEX_VALUE 
NDEX NVALOE,, oF éounes) (RO? 


INDEX. VALUE, =4(BOUNDS) CROJ 
ro SUBOUTRAN, =(SP) 


BASSSSTOP 
SIMUL TIPLIERS) CINDEX _NUMBER], - 
VALUE_LOCAT 
INDEX” “VALUE, RO, VALUE_LOCATION 


(R5), RO 
vat ug LOCATION, RO 

J, RO, VALUE gt OCaTion 
VALUE_LOCATION, R 


! end of module BASSFETCH_DESC 


PSECT SUMMARY 
Bytes Attributes 
176 NOVEC,NOWRT, RD, EXE, SHR, 
Library Statistics 
eveuneee Symbols -------- 
Total Loaded Percent 
-L32;1 9776 7 0 


LCL, REL, CON, PIC,ALIGN(2) 
Pages Processing 
. Mapped Time 
581 00:01.1 
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; COMMAND QUALIFIERS 
: BLISS/CHECK= (FIELD, INITIAL ,OPTIMIZE) /NOTRACE/LIS=L1S$:BASFETCHD/0BJ=08)$ :BASFETCHD MSRCS$: BASF ETCHD/UPDATE=(ENHS$ :BASFETCHD 


; Size: 176 oge + 0 data bytes 
; me: :06. 

; Elapsed Time: 543° 

; Lexemes/CPU-Min: 15405 


Y Used: 84 pages 
; Compilation Complete 
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